home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / www / URLLink.lha / URLLink / S / CreateURLLink < prev   
AmigaDOS Script File  |  2001-02-25  |  538b  |  28 lines
  1. .key URL/A,LINKNAME/A,PATH/A
  2. .bra {
  3. .ket }
  4.  
  5. set urltype `substr {url} 1 3`
  6. if $urltype EQ htt
  7.   set urlicontype HTTP
  8. else
  9.   if $urltype EQ ftp
  10.     set urlicontype FTP
  11.   else
  12.     if $urltype EQ fil
  13.       set urlicontype FILE
  14.     else
  15.       if $urltype EQ mai
  16.         set urlicontype MAILTO
  17.       else
  18.         set urlicontype URL
  19.       endif
  20.     endif
  21.   endif
  22. endif
  23. copy ENVARC:sys/def_$urlicontype.info to "{PATH}{LINKNAME}.info"
  24. echo >"{PATH}{LINKNAME}" openurl {URL}
  25.  
  26. ;$VER: CreateURLLink 0.1 (25.02.01) (15:00:41) ©2001 Jean Holzammer
  27.  
  28.